COMMENT ⊗   VALID 00019 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 AAM Puzzle
C00004 00003	 Triang
C00005 00004	 NIL
C00006 00005	 SCORE, Dec 29, 1983
C00007 00006	 InterLisp Vax 780
C00008 00007	 PSL-20 3.3
C00009 00008	 PSL-Cray 3.2
C00011 00009	 PSL-750 3.2
C00012 00010	 PSL-780 3.2
C00013 00011	 PSL-DN600 3.2
C00014 00012	 PSL-DN300 3.2
C00015 00013	 PERQ 6/20/84
C00016 00014	 DEC Common Lisp
C00017 00015	∂12-Jul-84  1851	RPG  
C00018 00016	 PSL Numbers 7/31/84
C00019 00017	 LMI/Tyson 15-Aug-84  1920
C00020 00018	 PSL-3081
C00021 00019	 3600 Sept 12, 1984
C00022 ENDMK
C⊗;
; AAM Puzzle
(fasload triang)
(timit)
Timing performed on Saturday 05/29/82 at 03:16:47.
Cpu Time = 98.101
Elapsed Time = 153.4
Wholine Time = 138.183332
GC Time = 6.803
Load Average Before  = 0.220208287
Load Average After   = 0.802041054
Average Load Average = 0.51112467
NIL 
Timing performed on Saturday 05/29/82 at 03:20:11.
Cpu Time = 98.095
Elapsed Time = 145.666666
Wholine Time = 130.733334
GC Time = 1.053
Load Average Before  = 0.56515789
Load Average After   = 0.893422365
Average Load Average = 0.72929013
NIL 
;;; New SAIL
Timing performed on Wednesday 10/12/83 at 23:10:22.
Cpu (- GC) Time = 86.029
Elapsed Time = 413.183334
Wholine Time = 144.9
GC Time = 6.345
Load Average Before  = 1.7579943
Load Average After   = 2.95534134
Average Load Average = 2.35666782
NIL 
;;; Triang

D3 7/5/83
Display up, Common Lisp arrays
Elapsed	252.0
GC	.212
CPU	252.0
pgflts	28
swpwrts	10

D2
Without Interrupts, Common Lisp array
Elapsed	1510.0
GC	.703
CPU	1510.
pgflts	28

D3 7/5/83
Display up, Interlisp arrays
Elapsed	676.0
GC	.181
CPU	.676
pgflts	32

D1
1/25/84 with interrupts CMLArrays
Elapsed	858.0
Swap	  1.31
CPU	856.0
GC	   .462
;;; NIL
TRIANGLE

Fixnum arithmetic.  Named arrays turned into vectors (1-d arrays),
in special variables; e.g.,
(defparameter *b*
  (make-array 37))
and all the references turned to AREF, STORE to SETF.  FILLARRAY in setups
turned to REPLACE (there was one fewer element in the list than in the
array!).  (cdr (listarray 'sequence)) turns into
(replace (make-list (1-& sequence-length)) *sequence* :start2 1), and
sequence-length is defined with *sequence*, by
(defconstant sequence-length 14).
cpu=1791.88,elapsed=1797.71,pf=238

Try 2:  change AREF to SGVREF.
cpu=649.73,elapsed=652.35,pf=230
;;; SCORE, Dec 29, 1983
from triang.il0
standard interlisp arrays

11626 conses
2326.439 seconds cpu
1.125 seconds gc
;;; InterLisp Vax 780
Here are the missing benchmarks:
	
TRIANG:
←(TIME (TEST]
11635 conses
1122.4 seconds
T

←LOAD(triang.v]
compiled on 14-AUG-84 18:21:44
File Created:30-MAY-83 15:25:29
TRIANGCOMS
/lisp/rbates/lisp/dick/TRIANG.V
←(TIME (TEST]
11763 conses
1076.54 seconds
T
;;; PSL-20 3.3

Triang test
Timing performed on DEC-20
23-Mar-84 05:12:03 .
........................................
Cpu (- GC) Time = 86.948 secs
Elapsed Time = 96.0 secs
GC Time = 0.0 secs
Load Average Before  = 1.2
Load Average After   = 1.1
Average Load Average = 1.15
;;; PSL-Cray 3.2
;;; Times are in milliseconds

 14:28:40 001:56.926 Triang test       
 14:29:57 002:16.273 Cpu (- GC) Time = 1.45426160e+04 secs     
 14:29:58 002:16.794 Elapsed Time = 0. secs    
 14:30:00 002:17.314 GC Time = 0. secs 
 14:30:02 002:17.834 Load Average Before  = 0  
 14:30:03 002:18.354 Load Average After   = 0  
 14:30:05 002:18.875 Average Load Average = 0. 

Triang test       
Timing performed on CRAY  
23-apr-84 12:00:00.       
........................................  
Cpu (- GC) Time = 1.44538250e+04 secs     
Elapsed Time = 0. secs    
GC Time = 0. secs 
Load Average Before  = 0  
Load Average After   = 0  
Average Load Average = 0. 
;;; PSL-750 3.2

Cpu (- GC) Time = 523.192 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-780 3.2

Cpu (- GC) Time = 212.194 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-DN600 3.2

Cpu (- GC) Time = 416.47 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PSL-DN300 3.2

Cpu (- GC) Time = 439.902 secs
Elapsed Time = 0.0 secs
GC Time = 0.0 secs
Load Average Before  = 0
Load Average After   = 0
Average Load Average = 0.0
;;; PERQ 6/20/84

1845.00 seconds (stopwatch)

7/31/84
Benchmark       % of old time   Time    Machine used
Triangle       100%            1844.32  Joe's T2

	Triang		       1492.85
;;; DEC Common Lisp

*************************************************************************
Name of		VAXLisp		VAXLisp		VAXLisp		VAXLisp
application	U1.0-20		U1.0-20		U1.0-20		U1.0-20
Benchmark	VMS V3.5	VMS V3.5	VMS V3.5	VMS V3.6
		730 (No FPA)	750 (No FPA)	780		785 (No FPA)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------

Triang		2865.87		1021.35		660.78		452.82
∂12-Jul-84  1851	RPG  
Triang 124.7, 62.06 with separate record-answer function

;;; PSL Numbers 7/31/84

          |KL-10b|  20-60 | 20-60 | 3600 | 20-60 | CRAY | 12Mhz| HP-UX
Benchmark |MACLSP|InterLsp|PSL 3.2| ZetaL|PSL 3.3|PSL3.2| HP200|PSL3.3
--------------------------------------------------------------------------
Triang    | 86.03|2326.439| 86.574|158.1 | 78.347|14.44 |261.07|250.07
;;; LMI/Tyson 15-Aug-84  1920
		Timing 1	Timing 2
Triang		751 (.916)	734.5 (.966)

;;; LMI/Carrette 9-4-84
Test       MacroCompiled    Microcompiled
 TRIANG     533.8
;;; PSL-3081
            |  CRAY  | BPS  400K bytes|  BPS   150K    | BPS   150K
Benchmark   | PSL 3.2| HEAP 800K bytes|  HEAP 1510K    | HEAP 1510K
---------------------------------------------------------------------------
Triang      |14.54   |25.219          |25.433          |25.441
;;; 3600 Sept 12, 1984

		Real, no IFU	Real, IFU	Ratio	CPU, no IFU	CPU, IFU	Ratio
    Triang	151.8		116.68		1.30	151.80		116.68		1.30